home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / dlscr.zip / XKCISDL.T < prev   
Text File  |  1987-11-10  |  851b  |  28 lines
  1.     :: This script downloads a file after it is listed by the
  2.     :: Compuserve SIG "bro" command with XMODEM OverThruster.
  3.     ::    Enable this with:
  4.     :: set f8 "@source xkcisdl.t"
  5.     :: Then "bro" and at each SIG download prompt, F3 grabs the file.
  6.     :: Note - to "clean up" the display change the "pat 1i" to "pat 1"
  7.     ::  and likewise the line below it, by delaying YAM's responses.
  8.     ::
  9.     if !h^\[ echo "Can't find Project Programmer Number"; return
  10.     ss yf "^[^     /]+"
  11.     setc s0 "\L%z0"
  12.     if f%s0 echo "%s0 Exists: No Action taken."; return
  13.     echo "File name is %s0"
  14.     split y "     " "     " "     "
  15.     put "\025dow %s0/proto:xmodem\r"
  16.     pat 1i "Protocol Menu"
  17.     pat 2 "complete."
  18.     wait -f20
  19.     if 1 put "\0251\r"; wait -f20        : tell them XMODEM
  20.     if !2 return
  21.     estimate %z2
  22.     ro "%s0"
  23.     pat; pat 1 "["
  24.     put "\025"
  25.     while !1 put "\r" wait -f5
  26.     pat
  27.     return
  28.